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PASSSTATUS Get status of last 1/0 operation 16-Sep-1984 t 98: 99: 99 AxX-11 BLi fees -32 V rae Page 1 
| 14- ~8ep-1984 PASRTL’ SRCJPASST Ves Os! B32;1 (1) | 
s 1 0001 MODULE PASS$STATUS ( &TIT +E 08 nett status of last ie operation’ 

as 900¢ IDENT = *1-001 File: PASSTATUS.B32 Edit: SBL1001 

wad 0004 1 BEGIN 

3 5 0005 1! 

4 $ Bone : , CeeaeeecerenerncnenaraeannenererereeneoereCeNtereTeetannteeeeneseeserettenes 

° .* ® 

3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

$ 9 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; 19 i : - ALL RIGHTS RESERVED. * 

° ; 7 

3 \¢ Bolg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND or tre * 

3 1 001 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE on a's THE * 

s 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sof TWARE OR OTHER ® 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bee QO17 1 fs TRANSFERRED. : | 
2 '® * 
5 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 onS4 : * CORPORATION. * 
4 '« *® i 
; 23 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
; 24 00246 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
sa .. 0025 1 !* * 
; 2 0026 1 !* * 
; 27 0027 1 leew area eee EEA AAT 

ee 0028 1! 

; 29 0029 1 

; » 0030 1 !++ 
re 0031 1 ! FACILITY: Pascal Language Support 
is Se ht 1: 

: 33 003 1 | ABSTRACT: 

° 34 0034 1 i | 
; 35 0035 1: This module contains a procedure which implements the | 
; 38 Bose : VAX-11 Pascal STATUS Teketion. 

: 36 0038 ENVIRONMENT: User mode - AST reentrant 
: 40 0040 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 
; 0042 1 | MODIFIED BY: 

; 63 0043 1! 
7: 646 0044 1! 1-001 - Original. SBL 1-April-1981 

cn on 0045 1 i- 

3 46 0046 1 
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PASSSTATUS Get status of last 1/0 operation 18. Sep-1984 709: AX-11 Bliss-32 V 
18001 Declarations : 14- ~gee- 1 3Re 95:99:99 PASRTL.SR RCIP PASSTA OS aS; 31 
;s 047 1 XSBTTL ‘Declarations’ 
; 69 048 1! 
3 29 049 1 ! PROLOGUE DEFINITIONS: 
; 1 050 1! 
3 2g 0051 1 
; 27 Bese } REQUIRE 'RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures 
$ 55 0117 1! 
;- 0118 1 ! TABLE OF CONTENTS: 
Pe 0119 1! 
; 58 0120 1 
; 012] 1 FORWARD ROUTINE 
: 60 1 é 1 PASSSTA ' Return file status 
; 6) 0125 #1 STATUS AMANBLER: ' Local handler 
3 62 0126 1 
.. oF 0125 1! 
; 64 0126 1 ! MACROS: 
;. 68 0127 1! 
: & 0128 1! NONE 
> OF 0129 1! 
g 68 0130 1 ! EQUATED SYMBOLS: 
: & 0131 1! 
; 70 0136 7 NONE 
: 71 013 1! 
3 72 0134 1 ! FIELDS: 
“ete es 0135 1! 
: 74 0136 1! NONE 
3 75 0137 1! 
; 76 0138 1 !' OWN STORAGE: 
oo ar 0139 1! 
: 78 0140 1! NONE 


c 
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| PASSSTATUS status of last 1/0 operation bese -1984 02:09: AX-11 Bliss-32 V4.0-74 Page 3 
1-00 SSTATUS = Return file status 12-8 8-13be 95:09:09 PASRTL. RCIPASSTATUS. 2;1 ° (3) 
ZSBITL 'PASSSTATUS = Return file status’ 
GLOBAL ROUTINE PASSSTATUS ( 
PFV: REF SPASSPFV_FILE_VARIABLE ! File variable 


te 
: FUNCTIONAL DESCRIPTION: 


This procedure implements the VAX=11 Pascal STATUS function. 

It returns an integer value which indicates the status of the 

last operation on the specified file. A negative result indicates 

that the file is at EOF, but that no error has occurred. A zero 

result indicates that no error has occurredm and the file is not 

at EOF. A positive result indicates that the last operation 

on the file caused an error, and the specific integer value 

denotes which error occurred. 


Symbols of the form PAS$K_xxx are defined that describe the 
result yp Brg ae sae Pi 


PAS$SK_SUCCESS =0 | . 
PASS$K_abcmnoxyz = positive integer, where ‘‘abcmnoxyz'' 
is the same as for the equivalent 
error condition code name. for 
example, if the last error to occur 
on the file was PAS$_FAIGETLOC, 
PASSSTATUS will return PASSK_FAIGETLOC. 


o 
Oo 


oooco°o 


i CALLING SEQUENCE: 
Status.wl.v = PASSSTATUS (PFV.mr.r) 
FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed x! reference. 
The structure of the PFV is defined in PASPFV.REQ. 


IMPLICIT INPUTS: 
NONE 

! IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

i SIDE EFFECTS: 
If lazy-lookahead is in progress, it is resolved. If an error 
occurs while resolving lazy~lookahead, PASS$STATUS returns the 
status of that error. 

SIGNALLED ERRORS: 
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‘1-0 1 ASSSTATUS = Return file status 14-Sep-1984 93:99:95 PASRTL.SRCIPASSTATUS.B 2;1 . 
3 19 ' NONE 
1 } 
leo 
BEGIN 
LOCAL 
FCB: REF SPASSFCB_CONTROL_BLOCK, ! File Control Block 
0 STATUS, ! Function result 
PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, ! Enable argument 
y ERROR_ADDR: VOLATILE; ! Enable argument 
14 
: Enable our local error handler. 


ENABLE 
STATUS_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 


PFV_ADDR = PFV CPFVSR_PFV]; ! Set enable argument 


'¢ 


Validate PFV and get FCB. 


feat * ale al eat eal val ealeal sal ealeal al altar oF oF oP oP oF oP ae oP oP a 
WN OO ONAUS WR "OO OONOUFSWN-OOOn 


PASSSVALIDATE_PFV (PFV CPFV$R_PFV]; FCB); 
UNWIND_ACT = PASS$SK_UNWIND_UNLOCK; ! Unlock file on unwind 


'¢ 
: Resolve lazy lookahead if necessary. If an error occurs, our 
} handler will return to our caller with the error code. 


1F NOT .PFV CPFV$V_VALIDJ 
PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB CFCBS$R_FCB]; FCB); 


+ 

! If file is not open, get the status from the FCB pointer in the PFV 
! which has as a synonmym the field PFV$L_STATUS. ara 

It is stored there for errors which occur when the file is not 

' open. 

leo 


If NOT .PFV CPFV$V_OPEN] 
THEN 


STATUS = .PFV CPFVSL_STATUS] 
ELSE 
BEGIN 


'¢ 


! The file is open. Look at the status in the FCB. If zero and the 
: file is at EOF, return -1. Otherwise, return the status from the FCB. 
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| PASSSTATUS Get status of last 1/0 operation 16-Se 1984 02:09:09 AX=11 Bliss-32 V4.0-74 Page 5 PAS! 
1-001 PASSSTATUS = Return file status aR oes Tat et PT hg PC Te ee 
3 194 8 2 3 STATUS = .FCB CFCBSL_STATUS]; 
(36195 $ 4 IF (.STATUS EQL 0) AND (.FCB CFCBSV_EOF J) 

; 4196 8 5 THEN 

; 197 58 STATUS = =1; 

: 198 0259 END; 

: 199 0260 

; 200 0261 PFV CPFV$V_LOCK) = 0; ' Unlock file 

; 44 o66¢ RETURN .STATUS; ' Return status value 

3 $03 0264 1 END; ! End of routine PASS$STATUS 


TLE PAS$STATUS Get status of last I/0 operation 
\1=001\ 


XTRN PASSSTATUS, PASSSVALIDATE_PFV 
-EXTRN PAS$$LOOK_AHEAD 


~-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


00cc 00000 .ENTRY PASS$STATUS, Save R2,R3,R6,R7 ; 0142 
SE 08 C2 00002 SUBL2 #8, SP ; 
7E D4 00005 CLeL ERROR_ADDR 3 0202 | 
04 AE 7C 00007 CLRQ UNWINB_ACT : 
6D 003C CF DE OO00A MOVAL 4$, (FP) : | 
56 04 AC DO O000F MOVL  PFV, R6 ; 0218. 
08 AE 56 90 00013 MOVL 6, PFV_ADDR : | 
000000006 00 16 00017 JSB PASSSVALIDATE_PFV > 0224) 
04 AE 01 D0 0001D MOVL #1, UNWIND_ACT : 0226. 
06 06 Ad E8 00021 BLBS  6(R6), : 0233) 
000000006 00 16 00025 JSB PAS$SLOOK_AHEAD : 0235) 
06 07 Ab 05 €0 00028 1$ BBS #5, 7( > 0244 | 
50 0c A DO 00030 MOVL 12(R6), STATUS : 0246 | 
OE 11 00034 BRA $ ; 
50 D4 A? DO 00036 28 MOVL  -44(FCB), STATUS : 0255 | 
08 12 Q003A BNEQ 38 : 0256 | 
03 FD A? 05 €1 0003C BBC #5, -3(FCB), 3$ ; 
50 01 CE 00041 MNEGL #1, STATUS ; 0258 | 
07 6 80 8F 8A 00044 3$ BICB2 #128, 7(R6) : 0261 | 
04 00049 RET > 0264 | 
0000 O004A 4$ -WORD Save nothing ; 0202 | 
50 08 AC DO 0004C MOVL  8(AP), RO ; 
50 04 AO DO 00050 MOVL = 4(RO), RO : 
FL AO OF 00034 PUSHAB ERROR ADDR ; 
F8 AQ 9F 00057 PUSHAB UNWIND ACT ; 
FC AO 9F OO05A PUSHAB PFV_ADBR : 
03 DD 0005D PUSHL #3 ; 
5E DD 0005F PUSHL SP ; 
7E 04 AC 7D 00061 MOVO. 4(AP), -(SP) ; 
0000v CF 03 FB 00065 CALLS #3, STATUS_HANDLER 
04 0006A RET ; 


; Routine Size: 107 bytes, Routine Base: _PASS$CODE + 0000 


: 204 0 
3; 605 0 


65 1 
66 1 !<BLF/PAGE> 
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800 TUS_HANDLER = Local handler 18-808-13Be 95:97:95 PASRTL.SRCIPASSTATUS.B 2;1 ’ (4) 
ZSBITL_ "STATUS_HANDLER = Local handler’ 
ROUTINE STATUS_HANDLER ( 
IGNAL_ARGS: REF BLOCK C, BYTE), ! Signal arguments array 
MECH_ARGS: REF BLOCK [ : TE], ! Mechanism arguments array 
ENABCE_ARGS: REF VECTOR C, LONG] i Enable arguments array 
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i FUNCTIONAL DESCRIPTION: 


This is the condition handler enabled PAS$STATUS. If the current 
signal is a Pascal error on the file our establisher was called 
with, we unwind to the caller of PASSSTATUS with RO being the 
status code of the error. 


ONIN NNN NN NOOO Oe 


AUEWN (OOO NOAMNE WN | O ODNAUE WN" OCONAULSWN-O0OOn 


Upon an unwind, the file variable is unlocked. 
CALLING SEQUENCE: | 


status.wlc.v = STATUS_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra, 
ENABLE_ARGS.rl.ra) 


FORMAL PARAMETERS: 


WANN wr MMPI 2 2S BS SS O0O = 


SIGNAL _ARGS - The signal argument List. | 
MECH_ARGS - The mechanism argument List. 
ENABLE_ARGS - An array with the following 

format: 


foueeeceseeesessce$ 


!  ENB_COUNT | <== ENABLE_ARGS 
+ + 


MPMPoPoRononononononononofononononononoponenoponeponofnononnn 0 


$owewceococescecn 


: ENB_ERROR_ADDR | 
+ + 


BELLE EE EAN Mrororor 
OCOOCCCOCOSOSSCCOOOO0OOOOOWMWMMMmMmocno 


WN SO OONOUS WN "Oo 0On 


ENB_COUNT is the count of following enable arguments. 
The count is always at least 2. 


ENB_PFV_ADDR = If non-zero, the address of a longword 
containing the PFV our establisher is operating on. 


ENB_UNWIND_ACT - Specifies the action 

to take on an unwind. The values are: 

PASSK_UNWIND_NOP = Do nothing 

PAS$K_UNWIND-UNLOCK = Unlock PFV 

ENB_ERROR_ADDR - Ignored here. 
IMPLICIT INPUTS: 


The signaller's PFV placed as the first FAO argument in the primary 
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PASSSTATUS Get status of last 1/0 operation 1b-se -1984 02:09:09 AX-11 Bliss-32 V4.0-74 p 7 PAS: 
1-001 STATUS_HANDLER = Local Sondler 1a-8ep-19 4 95:09:95 PASRTL  SREIPASSTATUS. B82; 1 sis (4) 1-0 
> 264 6 1! signalled message. 1 
; 265 6 > i} y : : 
; 266 $ 1 ! IMPLICIT OUTPUTS: ; 
3; gor 0 1! ; 
g $08 8 $ ! May clear PFV$V_LOCK upon unwind. ; 
; 270 8 0 1 ! ROUTINE VALUE: 3 
; sf oO. s : 
3 i 0 § 1! SS$_RESIGNAL ; 
: sf 0 1! : 
; 74 0334 1 ! SIDE EFFECTS: H 
: $f b336 | " ind 
; ' ay cause an unwind. ; 
: at 0837 1 i . 
; 278 0338 1 !-- : 
: e79 0339 1 3 
: 280 0340 2 BEGIN 3 
; 281 0341 2 F 
$ see Beg 2 LITERAL 5 
; ae 0343 2 ENB_COUNT = 0, ' Count of enable arguments ° 
> 284 0344 2 ENB_PFV_ADDR = 1 ' Address of address of PFV : 
; 285 0345 2 ENB_UNWIND_ACT= é ! Address of unwind action ; 
; 286 0346 2 ENB_ERROR_ADDR = 8; ! Address of address of unwind PC ; 
s gor 0347 2 3 
; 288 0348 2 1+ aS. : : 
; 289 0349 2 ' Determine if this is an unwind. 3 
; 290 0350 2 Hd : 
: 291 0351 2 F 
; 292 033¢ 2 IF .SIGNAL_ARGS CCHF$L_SIG_NAME] EQLU SS$_UNWIND ; 
: @ee 035 ¢ THEN $ 
3: 294 0354 BEGIN F 
; 295 0355 3 IF ..ENABLE_ARGS CENB_UNWIND_ACT] NEQ PASS$K_UNWIND_NOP ; 
: 296 0356 3 THE 3 
; 297 0357 4 BEGIN : 
; 298 0358 4 F 
; ¢ 0359 4 ‘+ 3 : 
: 300 0360 4 ' Get our establisher's PFV. : 
; wo 0361 4 !- 3 
: 302 $944 4 3 
: 303 0363 4 LOCAL 3 
: 304 0364 4 PFV: REF SPASSPFV_FILE VARIABLE; : 
; $02 0365 4 PFV = ..ENABLE_ARGS CENB_PFV_ADDRJ; ! Get PFV address : 
: $05 tae4 4 PFV CPFV$V_LOCK) = 0; ! Unlock PFV PY 
: 308 368 3 END; 3 
: 309 0369 3 END 3 
; 319 0370 3 3 
ae) } 0371 2 ELSE | : 
3 $18 O36 g 
; 13 037 BEGIN F 
; «6314 0374 : 
: 315 0375 OCAL : se : 
; 3 0376 3 COND_NAME: BLOCK (4, BYTE], ! Primary condition name 3 
: 17 0377 COND_CODE; ' Sequence number of error F 
: 18 0378 3 
: 19 0379 '¢ 3 
; 320 0380 ! Get primary condition name. g 


.EXTRN PAS$_FACILITY, PASS$$K_MSGCONTLO 
-EXTRN PASS$SK_MSG GCONTHI 


if 4 

| PASSSTATUS Get_ status of last 1/0 operation 6-Sep- 9:09 AX-11 Bliss-32 V Page 8 

10301 STATUS_HANDLER = Local handler b-Sep- 198 953 gf 7 PASRTL.SR ROIP PASSYA Os B92: 31 (4) 

H 1 03 1 !- : 
; § 0 § COND_NAME = .SIGNAL_ARGS CCHFSL_SIG_NAME]; : 
; 5 0385 ie ; 
; 6 0386 ' Is this a PAS$ error? If not, resignal. : 
s der 0387 le : 
; 328 0388 : 
; $2 $494 .COND_NAME CSTS$V_FAC_NO] NEQU PAS$_FACILITY : 
; 31 O38 RETURN SS$_RESIGNAL; ‘ 
. 039 + : 
; 338 395 

3 eae 0394 See if the error pessege is one which ‘s ‘'trapped’’ : 
3; 339 0395 3 ~ ERROR: =CONT INUE is is done by comparing the ; 
; 336 0396 3 i message number against a select range. These are also : 
. aw 0397 3 i the messages which STATUS will work on. : 
; 338 0398 3 ie ; 
3; 3 0399 3 | : 
; 340 0400 3 a CODE = .COND_NAME CSTS$V_CODE); ! Get error number . 
; 341 0401 3 .COND_CODE GEQO PASS$$K_MSGCONTLO AND . ! Lowest number : 
; 342 0402 3 -COND-CODE LEQU PAS$$K_—MSGCONTHI ! Highest number | ; 
: 344 04046 4 BEGIN . 
; 345 0405 4 . 
; 346 0406 4 + ; 
; 347 0407 4 i See if the PFVs match. The signaller's PFV is the ; 
; 348 0408 4 ! first FAO parameter in the primary message. : 
; 349 0409 4 ie ; 
s 350 0410 4 ; 
; 351 0411 4 IF .SIGNAL_ARGS (12,0,32,0] EQLA ..ENABLE_ARGS CENB_PFV_ADDRJ ; 
: $26 0412 4 THEN ’ 
; @ 0413 4 1+ : : 
; 354 0414 4 ! We want to petane to the caller of PASS$STATUS with the : 
, ie 0415 4 ' error number “ 
3; 3 0416 4 i : 
: Zor 0417 4 i Place it in the mechanism args list and do a default : 
; 358 0418 4 i j wind. > 
3 ior 0419 4 : 
: 360 0420 4 ; 
3 361 0421 5 BEGIN : 
; 3 0422 5 MECH_ARGS Atede | MCH_SAVRO] = .COND_CODE - PASS$$K_MSGCONTLO; ° 
; 0423 6 IF NOT SUNWIND (J : 
; 364 bese 5 THEN : 
; 65 0425 5 SPASSBUGCHECK (BUG_UNWINDFAIL); : 
; 366 0426 4 END; ‘ 
3 Jer 0427 3 END; : 
; 368 0428 2 END; ‘ 
; 369 Boe? § : : 
; a0 ok § RETURN SS$_RESIGNAL; ! Resignal error : 
3; Be 0432 1 END; ! End of routine STATUS_HANDLER : 


——— 


4 
et status of iast 1/0 operation bese -1984 :09: AX-11 Bliss-32 V4.0-74 
TATUS_HANDLER = Local handler 127867 382 95:09:95 PASRTL.SRC PASSTATUS. B92:1 


~EXTRN SYSSUNWIND, PASSS$BUGCHECK 
000C 00000 STATUS_HANDLER: 
WORD 


. Save R2,R3 
53 00006 8F %3C 0000 MOVZWL #PASS$S$K MSGCONTLO, R3 
5) 04 AC dO 0000 MOVL SIGNAL ARGS R1 
00000920 BF 04 Al O1 9008 CMPL 4(R1), 4 
14 if} 0001 BNEQ 1$ 
50 oc AC D 90013 MOVL § ENABLE_ARGS, RO 
08 80 D3 0019 TSTL  @8(RO) 
4 13 0001¢ BEQL = 2$ 
50 04 0 pO 0001 MOVL @4(RO), PFV 
07 AO 0 8F 8A 000 BICB2 #128, 7(PFV) 
49 11 000 BRB 2$ 
50 04 Al D0 00029 1$: MOVL 4(R1), COND_NAME 
006 50 0c 10 ED 0002D CMPZ7V #16, #12, COND_NAME, S*PAS$_FACILITY 
3 12 00032 BNEQ 2$ 
52 50 0c 03 EF 00034 EXTZV #3, #12, COND_NAME, COND_CODE 
53 52 01 00039 CMPL  COND_CODE, R3 
34 1F 0003C BLSSU 
000000006 8F 52 D1 0003E CMPL §_ COND_CODE, #PASS$$K_MSGCONTHI 
2B 1A 00045 BGTRU 2$ 
50 0c AC DO 00047 MOVL ENABLE_ARGS, RO 
04 80 OC Al D1 00048 CMPL  12(R1)> a4(RO) 
20 12 00050 BNEQ  2$ 
51 08 AC DO 00052 MOVL ARGS, R1 
Oc «(Al 52 53 ¢3 00056 SUBL3 R3, COND_CODE, 12(R1) 
7E 7C 00058 CLRQ. (SP) 
000000006 00 02 FB 0005D CALLS #2, SYSSUNWIND 
0B 50 £8 00064 BLBS RO, 28 
03 DD 00067 PUSHL # 
000000006 00 01 FB 00069 CALLS #1, PASSS$BUGCHECK 
06 11 00070 BRB 
50 0918 BF 3C 00072 2$: MOVZWL #2328, RO 
04 0007 RET 
50 04 00078 33: CLRL = RO 
04 0007A RET 


; Routine Size: 123 bytes, Routine Base: _PASS$CODE + 006B 


373 0433 1 
374 0434 1 !<BLF/PAGE> 
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1% 4 
+ + battens Get status of last 1/0 operation 6-Sep- 138% 0: gf: 99 AX-11 Bliss-32 V4.0-7 Page 
1-001 STATUS_HANDLER = Local handler token 984 PASRTL.SRC PASSTATUS. 5 2:1 


3 bce ! END ! End of module PAS$STATUS 
04 ; ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 230 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ete Syakels seoesens Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28 : CSYSLIBISTARLET.L32;1 9776 8 0 581 00:01.0 
~5255$DUA28: CPASRTL .OBJJPASLIB.L32;1 427 91 21 33 00:00.4 


COMMAND QUALIFIERS 
FL SSS/EAE CH OCF FELD SULT EA. GPT ERELE) SUDTRACE AA 15M, ESS 1PASSTATUS/ER JAGR IS PASSTATNS MSRC$:PASSTATUS/UPDATE=(ENH$:PASSTATUS 


; Size: 230 coge + 0 data bytes 
; Run Time: 00:07.2 

; Elapsed Time: 00:26.2 

; Lines/CPU Min: 3667 

: Lovenee/SPU-Miei 10867 

. Y Used: 75 pages 

; a ation Complete 
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